home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / GRAPHICS.EXE / CGA7.BAS < prev    next >
BASIC Source File  |  1991-03-18  |  768b  |  19 lines
  1. MODE 7: FG = 1 : BG = 1 : BO = 1 : CIRCLE 900,100,50 : COLORFG,BG,BO
  2. "Display"
  3. PRINT@(10,7)"Foreground","Background","Border"
  4. PRINT@(10,9)FG,,BG,BO
  5. PRINT@(10,11)"F to increase","G to increase","B to increase"
  6. PRINT@(10,12)"f to decrease","g to decrease","b to decrease"
  7. PRINT@(10,14)"Spacebar to exit" : CIRCLE 100,600,50
  8. "Keycheck"
  9. X$ = INKEY$ : IF X$="" GOTO "Keycheck"
  10. IF X$ = "F" FG = FG + 1 : IF FG > 1 FG = 0
  11. IF X$ = "f" FG = FG - 1 : IF FG < 0 BG = 1
  12. IF X$ = "G" BG = BG + 1 : IF BG > 7 BG = 0
  13. IF X$ = "g" BG = BG - 1 : IF BG < 0 BO = 7
  14. IF X$ = "B" BO = BO + 1 : IF BO > 15 BO = 0
  15. IF X$ = "b" BO = BO - 1 : IF BO < 0 BO = 15
  16. IF X$ = " " MODE 3 : END=256
  17. COLORFG,BG,BO : GOTO "Display"
  18.  
  19.